AmigActive 26/AACD 26.iso/AACD/Programming/ace_gpl_release/src/lib/c/filereq.c

C/C++ Source or Header | 1998-10-04 | 5.2 KB | 214 lines

/*
** Get the full path of a file
** via a file requester.
** Copyright (C) 1998 David Benn
**
** This program is free software; you can redistribute it and/or
** modify it under the terms of the GNU General Public License
** as published by the Free Software Foundation; either version 2
** of the License, or (at your option) any later version.
**
** This program is distributed in the hope that it will be useful,
** but WITHOUT ANY WARRANTY; without even the implied warranty of
** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
** GNU General Public License for more details.
**
** You should have received a copy of the GNU General Public License
** along with this program; if not, write to the Free Software
** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
**
** Author: David J Benn
**   Date: 24th-28th December 1993,
**       26th February 1994,
**       10th September 1994
*/

#include <exec/types.h>
#include <exec/execbase.h>
#include <exec/libraries.h>
#include <exec/memory.h>
#include <intuition/intuition.h>
#include <libraries/asl.h>

#define MAXSTRINGLEN 1024

/* Arp file requester structure declaration */
typedef struct ArpFileRequester {
    BYTE    *title;
    BYTE    *file;
    BYTE    *dir;
    struct    Window    *window;
    UBYTE    funcflags;
    UBYTE    flags2;
    void    (*userfunc)();
    WORD    leftedge;
    WORD    topedge;
} ARPREQ;

/* externals */
extern    struct    ExecBase *AbsExecBase;
extern    struct    Window *Wdw,*WBWdw;
extern    BYTE    IntuiMode;

/* globals */
struct    Library *AslBase=NULL;
struct     Library *ArpBase=NULL;
static     char    path[MAXSTRINGLEN];

/* function protos */
ULONG    FileRequest();

/* external functions */
extern    void    stringcopy();

/* functions */
char *asl_filerequest(defdir,title)
char *defdir,*title;
{
/*
** File requester for machines
** running version 2.04 or higher
** of the operating system.
*/
struct    TagItem    frtags[4];
struct     FileRequester *FileReq;
char     *file,*dir,*tmp;
int    tagnum=0;

 /* requester title */
 frtags[tagnum].ti_Tag  = ASL_Hail;
 frtags[tagnum++].ti_Data = (ULONG)title;

 /* default directory? */
 if (defdir != NULL)
 {
     frtags[tagnum].ti_Tag  = ASL_Dir;
    frtags[tagnum++].ti_Data = (ULONG)defdir;
 }

 /* specify window? */
 if (IntuiMode == 1)
 {
   frtags[tagnum].ti_Tag = ASL_Window;
   frtags[tagnum++].ti_Data = (ULONG)Wdw;
 }

 frtags[tagnum].ti_Tag = TAG_DONE;

 path[0] = '\0';

 AslBase = (struct Library *)OpenLibrary(AslName,0L);
 if (AslBase == NULL) return(path);

 FileReq = (struct FileRequester *)AllocAslRequest(ASL_FileRequest,frtags);

 if (AslRequest(FileReq,NULL))
 {
   dir  = FileReq->rf_Dir;
   file = FileReq->rf_File;
   if (*dir != '\0') stringcopy(path,dir);
   tmp = path;
   while (*tmp) tmp++;
   if (*(tmp-1) != ':' && *dir != '\0') *tmp++ = '/';
   stringcopy(tmp,file);
 }

 FreeAslRequest(FileReq);

 if (AslBase) CloseLibrary(AslBase);

 return(path);
}

char *custom_filerequest(defdir,title)
char *defdir,*title;
{
/*
** File requester for machines
** running version 1.3 or less
** of the operating system.
**
** Arp.library must be installed
** in the LIBS: directory for this
** function to work.
*/
ARPREQ    *arpreq;
char    file[MAXSTRINGLEN],dir[MAXSTRINGLEN];
char    *tmp;
int    cc;

    dir[0] = '\0';
    file[0] = '\0';
    path[0] = '\0';

    /* default directory? */
    if (defdir != NULL) stringcopy(dir,defdir);

    /* open arp library */
    ArpBase = (struct Library *)OpenLibrary("arp.library",0L);
    if (ArpBase == NULL) return(path);

    /* allocate memory for requester structure */
    arpreq = (ARPREQ *)AllocMem(sizeof(ARPREQ),MEMF_ANY | MEMF_CLEAR);
    if (arpreq == NULL)
    {
      if (ArpBase) CloseLibrary(ArpBase);
      return(path);
    }

    /* fill ARPREQ structure */
    arpreq->title    = (BYTE *)title;
    arpreq->file      = (BYTE *)file;
    arpreq->dir       = (BYTE *)dir;
    if (IntuiMode == 1)
    arpreq->window    = Wdw;
    else
    arpreq->window    = NULL;
    arpreq->funcflags    = 0;
    arpreq->flags2    = 0;
    arpreq->userfunc    = NULL;
    arpreq->leftedge    = 20;
    arpreq->topedge    = 20;

    /* invoke arp file requester */
    if (FileRequest(arpreq) == 0L)
    {
      if (arpreq) FreeMem(arpreq,sizeof(ARPREQ));
      if (ArpBase) CloseLibrary(ArpBase);
      return(path);
    }

   /* extract full path from ARPREQ structure */
   cc=0;
   tmp = arpreq->dir;
   while (*tmp) { path[cc++] = *tmp++; }
   path[cc] = '\0';

   if (path[0] != '\0')
      if (path[cc-1] != ':') { path[cc++] = '/'; path[cc] = '\0'; }

   tmp = arpreq->file;
   while (*tmp) { path[cc++] = *tmp++; }
   path[cc] = '\0';

   if (arpreq) FreeMem(arpreq,sizeof(ARPREQ));
   if (ArpBase) CloseLibrary(ArpBase);

   return(path);
}

char *filerequest(defdir,title)
char *defdir,*title;
{
/*
** Invoke a file requester
** and return the full path
** of the selected file.
*/

  if (AbsExecBase->LibNode.lib_Version <= 34)    /* 1.3 or less? */
      return(custom_filerequest(defdir,title));
  else
      return(asl_filerequest(defdir,title));
}